home *** CD-ROM | disk | FTP | other *** search
/ FishMarket 1.0 / FishMarket v1.0.iso / fishies / 476-500 / disk_499 / diglib / diglib.lzh / source / MAPPRM.for < prev    next >
Text File  |  1991-04-13  |  986b  |  28 lines
  1.         SUBROUTINE MAPPRM(XLEFT,XRIGHT,YBOT,YTOP,CSIZE,TKLN,LRAXIS)
  2.         IMPLICIT NONE
  3.         REAL*4 XLEFT,XRIGHT,YBOT,YTOP,CSIZE,TKLN,TICKSP,TLABLN
  4.         REAL GSCWID,GSCHIT
  5.         INTEGER ILABSZ
  6.         LOGICAL*2 LRAXIS
  7.         INCLUDE DIGLIB$KOM:PLTSIZ.PRM
  8.         INCLUDE DIGLIB$KOM:PLTPRM.PRM
  9. C
  10. C
  11.         CXSIZE = GSCWID()*CSIZE/GSCHIT()
  12.         CYSIZE = CSIZE
  13.         TICKLN = TKLN
  14.         TICKSP = AMAX1(0.0,TICKLN)
  15.         TLABLN = ILABSZ()+0.25
  16. D    WRITE(9,12345)XLEFT,TICKSP,TLABLN,CXSIZE,CYSIZE
  17. D12345   FORMAT(1X,"MAPPRM" 5F6.2)
  18.         XVSTRT = XLEFT + TICKSP + TLABLN*CXSIZE + 2.0*CYSIZE + 0.25
  19.         XVLEN = XRIGHT - XVSTRT - (TLABLN/2.0)*CXSIZE - 0.25
  20.         IF(LRAXIS) XVLEN = XVLEN - (TICKSP + TLABLN*CXSIZE + 2.0*CYSIZE)
  21.         TICKSP = AMAX1(0.5*CYSIZE,TICKLN)
  22.         YVSTRT = YBOT + TICKSP + 4.25*CYSIZE + 0.25
  23.         YVLEN = YTOP - YVSTRT - 2.0*CYSIZE - 0.25
  24. D    WRITE(9,12346)XVSTRT,XVLEN,YVSTRT,YVLEN
  25. D12346  FORMAT(1X,4F6.2) 
  26.         RETURN
  27.         END
  28.